home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / hellbbs / scripts / chngpass.scr next >
Encoding:
Text File  |  1996-05-14  |  504 b   |  23 lines
  1. cls
  2. echo hidden
  3. input "Enter your old password: ",opass
  4. code upper(opass),copass
  5. userget user,"PASS",rcopass
  6. if rcopass=copass
  7.  input "Enter your new password: ",npass
  8.  npass=upper(npass)
  9.  input "Enter it once more: ",npass2
  10.  npass2=upper(npass2)
  11.  if npass=npass2
  12.   code npass,cnpass
  13.   userset user,"PASS",cnpass
  14.   print "New password was set..."
  15.  else
  16.   print "Sorry, it wasn't the same!"
  17.  endif
  18. else
  19.  print "Sorry, this password is wrong..."
  20.  pause 100
  21. endif
  22. echo on
  23. a=decide(100)